Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/attall/alltheti.frm

Text File | 1995-05-08 | 12KB | 441 lines

VERSION 2.00
Begin Form AllTheTime
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   Caption         =   "AllTheTime"
   ClientHeight    =   0
   ClientLeft      =   75
   ClientTop       =   375
   ClientWidth     =   810
   ControlBox      =   0   'False
   FillColor       =   &H00C0C0C0&
   FillStyle       =   0  'Solid
   FontBold        =   0   'False
   FontItalic      =   0   'False
   FontName        =   "MS Sans Serif"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   405
   Icon            =   ALLTHETI.FRX:0000
   Left            =   15
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   0
   ScaleWidth      =   810
   Top             =   30
   Width           =   930
   Begin TextBox Text1
      Height          =   288
      Left            =   2016
      LinkTimeout     =   -1
      TabIndex        =   5
      Top             =   624
      Visible         =   0   'False
      Width           =   372
   End
   Begin PictureClip MoonSun
      Cols            =   5
      Location        =   "1215,1215,6900,5160"
      Picture         =   ALLTHETI.FRX:0302
      Rows            =   5
   End
   Begin SSFrame Frame3D1
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   195
      Left            =   15
      TabIndex        =   4
      Top             =   8160
      Width           =   135
      Begin SSOption Option3D1
         Alignment       =   1  'Right Justify
         Caption         =   "&3 - Bottom right"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   2
         Left            =   1920
         TabIndex        =   2
         Top             =   960
         Value           =   -1  'True
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&5 - Elsewhere"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   4
         Left            =   1530
         TabIndex        =   6
         TabStop         =   0   'False
         Top             =   615
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&1 - Upper left"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   0
         Left            =   105
         TabIndex        =   0
         TabStop         =   0   'False
         Top             =   255
         Width           =   1455
      End
      Begin SSOption Option3D1
         Alignment       =   1  'Right Justify
         Caption         =   "&2 - Upper right"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   1
         Left            =   1920
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   270
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&4 - Bottom left"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   960
         Width           =   1575
      End
   End
   Begin Image PrtStatus
      Height          =   240
      Left            =   510
      Top             =   10005
      Width           =   300
   End
   Begin Image PrtInactive
      Height          =   240
      Left            =   510
      Picture         =   ALLTHETI.FRX:1E20
      Top             =   10080
      Width           =   285
   End
   Begin Image PrtActive
      Height          =   240
      Left            =   510
      Picture         =   ALLTHETI.FRX:1FEA
      Top             =   10080
      Width           =   300
   End
   Begin Image Picture1
      Height          =   225
      Left            =   30
      Picture         =   ALLTHETI.FRX:21B4
      Top             =   30
      Width           =   240
   End
   Begin Image MoonPic
      Height          =   192
      Left            =   300
      Top             =   30
      Width           =   192
   End
   Begin Image SeasonPic
      Height          =   192
      Left            =   4080
      Top             =   30
      Width           =   192
   End
End
'DefInt A-Z
Const GroupFauxCompilerDirective = False

Sub Form_Activate ()
    'MsgBox ("Activate...")
      If AllTheTime.Left >= Screen.Width - 15 Then
         AllTheTime.Left = AllTheTime.Tag
      End If
End Sub

'
'
Sub Form_Click ()
SoundABorted = True
CFlag% = True
End Sub

Sub Form_DblClick ()
DblCFlag% = True

End Sub

Sub Form_GotFocus ()
      If AllTheTime.Left >= Screen.Width - 15 Then
         AllTheTime.Left = AllTheTime.Tag
      End If
'
'Settings.SetFocus
End Sub

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case Alt_R      'Rotate
            For I% = 0 To 4
            If Settings.Option3D1(I%).Value Then S% = I%
            Next I%
            Settings.Option3D1((S% + 1) Mod 5).Value = True
            Settings.Option3D1(S%).Value = False
            KeyCode = 0
            Shift = 0
            Call PositionATT

        Case Alt_T      'Turn off
'            KeyCode = 0
'            Shift = 0
'            AllTheTime.Visible = Not AllTheTime.Visible
   End Select

End Sub

Sub Form_KeyPress (KeyAscii As Integer)
    If KeyAscii = Asc("X") Then
       DeleteMenus
       End 'Program
    End If
End Sub

Sub Form_Load ()
If hSubMenus <> 0 Then
   MsgBox "Loading twice..."
   End
End If
hMainMenu = CreatePopUpMenu()
hTaskMenu = CreateTaskMenu()
T% = AppendMenu(hMainMenu, MF_POPUP, hTaskMenu, "&Switch to")
T% = AppendMenu(hMainMenu, MF_STRING, IDM_SETTINGS, "Se&ttings...")
T% = AppendMenu(hMainMenu, MF_SEPARATOR, IDM_ITEMS, "-")
T% = AppendMenu(hMainMenu, MF_STRING, IDM_ABOUT, "&About...")
T% = AppendMenu(hMainMenu, MF_SEPARATOR, IDM_ITEMS, "-")
T% = AppendMenu(hMainMenu, MF_STRING, IDM_EXIT, "E&xit")

If GroupFauxCompilerDirective Then
   Text1.LinkMode = 0
   Text1.LinkTopic = "Progman|Progman"
   Text1.LinkItem = "Groups"
   Text1.LinkMode = 2
   Text1.LinkRequest

   hGroupMenu = CreatePopUpMenu()
   T% = AppendMenu(hMainMenu, MF_SEPARATOR, IDM_ITEMS, "-")

   Groups$ = Text1.Text
   While Groups$ <> ""
      cPos = InStr(Groups$, Chr(13))
      OneGroup$ = Left$(Groups$, cPos - 1)
      Groups$ = Mid$(Groups$, cPos + 2, 30000)
      hSubMenus = hSubMenus + 1
      ReDim Preserve hSubMenu(hSubMenus)
      hSubMenu(hSubMenus) = CreatePopUpMenu()   'popup

      Text1.LinkItem = OneGroup$
      Text1.LinkMode = 2
      Text1.LinkRequest

      Progs$ = Text1.Text
      FirstOne = True
      While Progs$ <> ""
         cPos = InStr(Progs$, Chr(13))
         OneProg$ = Left$(Progs$, cPos - 1)
         Progs$ = Mid$(Progs$, cPos + 2, 30000)
         PName$ = Mid$(OneProg$, 2, 30000)
         PName$ = Mid$(PName$, 1, InStr(PName$, Chr(34)) - 1)
         If FirstOne Then
            FirstOne = False
         Else
            T% = AppendMenu(hSubMenu(hSubMenus), MF_STRING, IDM_ITEMS + hSubMenus, PName$)
         End If
      Wend

      T% = AppendMenu(hGroupMenu, MF_POPUP, hSubMenu(hSubMenus), OneGroup$)
   Wend

T% = AppendMenu(hMainMenu, MF_POPUP, hGroupMenu, "Groups...")
End If

PrtActive.Picture = MoonSun.GraphicCell(20)
PrtInActive.Picture = MoonSun.GraphicCell(21)
PrtStatus.Picture = MoonSun.GraphicCell(21)
'Screen.MousePointer = 0

'AllTheTime.Visible = T